﻿Public Class spam

    Private Sub help_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Timer1.Start()
        Me.Location = New Point(Rnd() * (My.Computer.Screen.Bounds.Width - Me.Size.Width), Rnd() * (My.Computer.Screen.Bounds.Height - Me.Size.Height))

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Me.lblSpam.ForeColor = Color.FromArgb(255, Rnd() * 255, Rnd() * 255, Rnd() * 255)

    End Sub
End Class